home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sun4.md / reg.ph < prev    next >
Encoding:
Text File  |  1991-08-15  |  3.4 KB  |  101 lines
  1. if (!defined &_sparc_reg_h) {
  2.     eval 'sub _sparc_reg_h {1;}';
  3.     eval 'sub PSR {(0);}';
  4.     eval 'sub PC {(1);}';
  5.     eval 'sub nPC {(2);}';
  6.     eval 'sub Y {(3);}';
  7.     eval 'sub G1 {(4);}';
  8.     eval 'sub G2 {(5);}';
  9.     eval 'sub G3 {(6);}';
  10.     eval 'sub G4 {(7);}';
  11.     eval 'sub G5 {(8);}';
  12.     eval 'sub G6 {(9);}';
  13.     eval 'sub G7 {(10);}';
  14.     eval 'sub O0 {(11);}';
  15.     eval 'sub O1 {(12);}';
  16.     eval 'sub O2 {(13);}';
  17.     eval 'sub O3 {(14);}';
  18.     eval 'sub O4 {(15);}';
  19.     eval 'sub O5 {(16);}';
  20.     eval 'sub O6 {(17);}';
  21.     eval 'sub O7 {(18);}';
  22.     eval 'sub PS { &PSR;}';
  23.     eval 'sub SP { &O6;}';
  24.     eval 'sub R0 { &O0;}';
  25.     eval 'sub R1 { &O1;}';
  26.     if (!defined &LOCORE) {
  27.     eval 'sub r_ps { &r_psr;}';
  28.     eval 'sub r_r0 { &r_o0;}';
  29.     eval 'sub r_sp { &r_o6;}';
  30.     }
  31.     eval 'sub FPU {1;}';
  32.     if (!defined &LOCORE) {
  33.     eval 'sub FQ_DEPTH {16;}';
  34.     eval 'sub FPU_REGS_TYPE { &unsigned;}';
  35.     eval 'sub FPU_FSR_TYPE { &unsigned;}';
  36.     eval 'sub fpu_regs { &f_fpstatus. &fpu_fr. &Fpu_regs;}';
  37.     eval 'sub fpu_dregs { &f_fpstatus. &fpu_fr. &Fpu_dregs;}';
  38.     eval 'sub fpu_fsr { &f_fpstatus. &Fpu_fsr;}';
  39.     eval 'sub fpu_flags { &f_fpstatus. &Fpu_flags;}';
  40.     eval 'sub fpu_extra { &f_fpstatus. &Fpu_extra;}';
  41.     eval 'sub fpu_q { &f_fpstatus. &Fpu_q;}';
  42.     eval 'sub fpu_qcnt { &f_fpstatus. &Fpu_qcnt;}';
  43.     }
  44.     eval 'sub FSR_CEXC {0x0000001f;}';
  45.     eval 'sub FSR_AEXC {0x000003e0;}';
  46.     eval 'sub FSR_FCC {0x00000c00;}';
  47.     eval 'sub FSR_PR {0x00001000;}';
  48.     eval 'sub FSR_QNE {0x00002000;}';
  49.     eval 'sub FSR_FTT {0x0001c000;}';
  50.     eval 'sub FSR_RESV {0x007e0000;}';
  51.     eval 'sub FSR_TEM {0x0f100000;}';
  52.     eval 'sub FSR_RP {0x30000000;}';
  53.     eval 'sub FSR_RD {0xc0000000;}';
  54.     eval 'sub FSR_CEXC_NX {0x00000001;}';
  55.     eval 'sub FSR_CEXC_DZ {0x00000002;}';
  56.     eval 'sub FSR_CEXC_UF {0x00000004 .;}';
  57.     eval 'sub FSR_CEXC_OF {0x00000008;}';
  58.     eval 'sub FSR_CEXC_NV {0x00000010;}';
  59.     eval 'sub FSR_AEXC_NX {(0x1 << 5);}';
  60.     eval 'sub FSR_AEXC_DZ {(0x2 << 5);}';
  61.     eval 'sub FSR_AEXC_UF {(0x4 << 5) .;}';
  62.     eval 'sub FSR_AEXC_OF {(0x8 << 5);}';
  63.     eval 'sub FSR_AEXC_NV {(0x10 << 5);}';
  64.     eval 'sub FTT_NONE {0;}';
  65.     eval 'sub FTT_IEEE {1;}';
  66.     eval 'sub FTT_UNFIN {2;}';
  67.     eval 'sub FTT_UNIMP {3;}';
  68.     eval 'sub FTT_SEQ {4;}';
  69.     eval 'sub FTT_ALIGN {5;}';
  70.     eval 'sub FTT_DFAULT {6;}';
  71.     eval 'sub FSR_FTT_SHIFT {14;}';
  72.     eval 'sub FSR_FTT_IEEE {( &FTT_IEEE <<  &FSR_FTT_SHIFT);}';
  73.     eval 'sub FSR_FTT_UNFIN {( &FTT_UNFIN <<  &FSR_FTT_SHIFT);}';
  74.     eval 'sub FSR_FTT_UNIMP {( &FTT_UNIMP <<  &FSR_FTT_SHIFT);}';
  75.     eval 'sub FSR_FTT_SEQ {( &FTT_SEQ <<  &FSR_FTT_SHIFT);}';
  76.     eval 'sub FSR_FTT_ALIGN {( &FTT_ALIGN <<  &FSR_FTT_SHIFT);}';
  77.     eval 'sub FSR_FTT_DFAULT {( &FTT_DFAULT <<  &FSR_FTT_SHIFT);}';
  78.     eval 'sub FSR_TEM_NX {(0x1 << 23);}';
  79.     eval 'sub FSR_TEM_DZ {(0x2 << 23);}';
  80.     eval 'sub FSR_TEM_UF {(0x4 << 23) .;}';
  81.     eval 'sub FSR_TEM_OF {(0x8 << 23);}';
  82.     eval 'sub FSR_TEM_NV {(0x10 << 23);}';
  83.     eval 'sub RP_DBLEXT {0;}';
  84.     eval 'sub RP_SINGLE {1;}';
  85.     eval 'sub RP_DOUBLE {2;}';
  86.     eval 'sub RP_RESERVED {3;}';
  87.     eval 'sub RD_NEAR {0;}';
  88.     eval 'sub RD_ZER0 {1;}';
  89.     eval 'sub RD_POSINF {2;}';
  90.     eval 'sub RD_NEGINF {3;}';
  91.     eval 'sub FP_UNINITIALIZED {1;}';
  92.     eval 'sub FP_STARTSIG {2;}';
  93.     eval 'sub FP_DISABLE {4;}';
  94.     eval 'sub FP_ENABLE {8;}';
  95.     if (!defined &LOCORE) {
  96.     eval 'sub rw_fp { &rw_in[6];}';
  97.     eval 'sub rw_rtn { &rw_in[7];}';
  98.     }
  99. }
  100. 1;
  101.